Private Sub btnApagar_Click()
    With CreateObject("shell.application")
        .ShutDownWindows()
    End With
End Sub

Private Sub btnBuscarFicheros_Click()
    Dim s As Object
    s = CreateObject("shell.application")
    s.FindFiles()
End Sub

Private Sub btnCalculadora_Click()
    Shell(pathname:="Calc.exe", windowstyle:=VbAppWinStyle.vbNormalFocus)
End Sub

Private Sub btnDOS_Click()
    Shell(pathname:="cmd.exe", windowstyle:=VbAppWinStyle.vbNormalFocus)
End Sub

Private Sub btnExplorador_Click()
    Shell(pathname:="explorer.exe C:\Temp", windowstyle:=VbAppWinStyle.vbMaximizedFocus)
End Sub

Private Sub btnIexplorer_Click()
    Shell(pathname:="C:\\Archivos de programa\\Internet Explorer\\iexplore.exe", windowstyle:=VbAppWinStyle.vbMinimizedFocus)
End Sub

Private Sub btnNotepad_Click()
    Shell(pathname:="Notepad.exe", windowstyle:=VbAppWinStyle.vbNormalFocus)
End Sub

Private Sub btnSetTime_Click()
    With CreateObject("shell.application")
        .SetTime()
    End With
End Sub

Private Sub btnWord_Click()
    Shell(pathname:="Winword.exe", windowstyle:=VbAppWinStyle.vbMaximizedFocus)
End Sub

Private Sub btnSalir_Click()
    Unload(Me)
End Sub

Private Sub btnWrite_Click()
    Shell(pathname:="Write.exe", windowstyle:=VbAppWinStyle.vbNormalFocus)
End Sub
